home *** CD-ROM | disk | FTP | other *** search
/ Family Forum 261 / SOMC Family Forum 261.iso / Xtras / Behavior Library.cst / 00041_Script_Video Control < prev    next >
Text File  |  1997-11-17  |  1KB  |  40 lines
  1. -- Video   Controller   Commands
  2.  
  3.  
  4. -- behavior library version 1.1
  5. -- a control
  6.  
  7. property videoSprite    -- the sprite number that is getting controlled
  8. property videoCommand   -- the command to be issued
  9.  
  10. on InitVidControl me
  11.   case ( the VideoCommand of me ) of:
  12.     #Play:
  13.       set the movieRate of sprite the VideoSprite of me = 1
  14.     #Pause:
  15.       set the movieRate of sprite the VideoSprite of me = 0
  16.     #Stop:
  17.       set the movieRate of sprite the VideoSprite of me = 0
  18.       set the movietime of sprite the VideoSprite of me = 0
  19.     #Rewind:
  20.       set the movietime of sprite the VideoSprite of me = 0
  21.   end case
  22. end
  23.  
  24.  
  25. on mouseUp me
  26.   initVidControl me
  27. end
  28.  
  29. ---
  30.  
  31. on getPropertyDescriptionList
  32.   set p_list = [   #videoCommand: [ #comment:   "Command:",                     #format:   #symbol,                      #range: [ #Play, #Pause, #Stop, #Rewind ],                    #default:   #Play ],    #videoSprite: [ #comment:   "Video Sprite Channel:",                     #format:   #integer,                    #default:    1 ]                  ]
  33.   return p_list
  34. end
  35.  
  36. on getBehaviorDescription
  37.   return "Provides Play, Pause, Stop, or Rewind controls for a digital video sprite." & RETURN & "PARAMETERS:" & RETURN & "ò Command - Choose the video playback command to invoke ( Play, Pause, Stop, Rewind )." & RETURN & "ò Sprite - Enter the number of sprite channel in which video is displayed." 
  38. end
  39.  
  40.